home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2002 January / january_2002.iso / Piposh Special / Piposh / FRITZ1.DXR / 00212.ls < prev    next >
Encoding:
Text File  |  2004-12-06  |  735 b   |  21 lines
  1. on exitFrame
  2.   global ppl, advance, foes
  3.   set the memberNum of sprite getAt(ppl, 1) to member(the memberNum of sprite getAt(ppl, 1) + 1, 2)
  4.   set the locV of sprite getAt(ppl, 1) to the locV of sprite getAt(ppl, 1) + 17
  5.   if sprite(getAt(ppl, 1)).flipH = 0 then
  6.     set the locH of sprite getAt(ppl, 1) to the locH of sprite getAt(ppl, 1) + 17
  7.   else
  8.     set the locH of sprite getAt(ppl, 1) to the locH of sprite getAt(ppl, 1) - 17
  9.   end if
  10.   if (advance = 6) or (advance = 7) then
  11.     if getAt(foes, 1) < 175 then
  12.       setAt(foes, 1, 180)
  13.       chkhit(getAt(ppl, 2), 175, 180, 2, 1, 207)
  14.     end if
  15.     if getAt(foes, 2) < 175 then
  16.       setAt(foes, 2, 180)
  17.       chkhit(getAt(ppl, 3), 175, 180, 3, 2, 207)
  18.     end if
  19.   end if
  20. end
  21.